This is bulit in functionality :) Have a look at the -s flag in perlrun...

You can pass arguments like this to perl like:

./test.pl -var1=test

where ./test.pl is something like:

#!/usr/bin/perl -s
if ($var1) {print $var1};
[download]

/brother t0mas