Select Code to Download

perl -E 'while(-f $ARGV[0]){ $now=(stat(_))[9]; system($^X,@ARGV) if($
+now-$prev); $prev=$now; sleep 1}' /home/user/test.pl foo bar

#! env perl
my $p1 = $ARGV[0];
my $p2 = $ARGV[1];
print "param1=$p1 param2=$p2\n";

param1=foo param2=bar