source $1  

##</code><code>##

echo "--0--"
echo $lnPARAM[0]
echo $lnVAL[0] 

##</code><code>##

while (<STDIN>) {
  my $line = $_;
  # do something with $line
}