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

##</code><code>##

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

##</code><code>##

param1=foo param2=bar