[Paper project]

#!/usr/bin/perl
@user_id = '$users'
@password = '$irrelevent'
@amount = '$amnt'
@DumbBse = '$db'

Print " Enter: \n\a";

#when (!$ARGV[0] || !$ARGV[1] || !$ARGV[2] || !$ARGV[3]) { #<replace code
   die "USAGE\nperl  [ftp over ssl] [user] [$amnt] \n";
}
unless (($type eq "ssl") || ($type eq "ssh")) {
   die ":<  Error in your syntax usage ! :<   $!";
}