Select Code to Download

print do{my @temp=split /,/,$foo; $temp[2]},"\n";

my $slurped=do{local $/; open my $fh,$file or die "$file:$!"; <$fh>};