use warnings;
use strict;

if (@ARGV != 3){
    print "Program requires 3 arguments\n";
    exit;
}

my ($one, $two, $three) = @ARGV;

print "arg1: $one, arg2: $two, arg3: $three\n";