if (@ARGV < 3) {
        die "use: script var1 var2 var3\n";
} else {
        my ($var1, $var2, $var3) = @ARGV;
}
## then use $var1, $var2 and $var3 in your program