Someone

#!/usr/bin/perl  -w
#slots
use warnings;

if(@ARGV !=1) {

print "Usage: perl $0 <amount>\n";

exit;}
($amount) = @ARGV;


sub one {
	return int(rand(3) + 1);
		}
$result=one();
sub two {
	return int(rand(3) + 1);
		}
$two=two();
sub three {
	return int(rand(3) + 1);
		}
$three=three();

if ($result) {
		if (($result == $two) && ($result == $three))
	{ 
		if ($result == 1) {print "[ $result ][ $two ][ $three ]\tYour money x2 ->", 2*$amount, "\n"}
		elsif ($result == 2) {
		print "[ $result ][ $two ][ $three ]\tYour money x5 ->", 5*$amount, "\n"}
		elsif ($result == 3) {print "[ $result ][ $two ][ $three ]\tYour money x20 ->", 20*$amount, "\n"}
		}
			else {print "[ $result ][ $two ][ $three ]\n" }

	}