Help for this page
Select Code to Download
Select
or
download this
my ($fh, $nam) = File::Temp::tempfile; print $fh <ARGV>;