Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
print scalar <$fh>;

__END__

Select or download this
```
$ ./foo.pl 'ls|'
449133.pl
```