Help for this page

Select Code to Download

Select or download this
```
unshift( @ARGV, '-' ) unless @ARGV;
```

Select or download this

$ cat my_test1.pl                         
#!/usr/bin/perl
...
$ echo "testing" | perl my_test1.pl infile
2 from infile
3 from infile