Help for this page
cat file | perl -n0e 'BEGIN{$var = shift} #more code' myvar
VAR=myvar; export VAR; cat file | perl -n0e 'BEGIN{$var = $ENV{VAR}} # +more code'