#!/perl my $foo = <