Select Code to Download

$ mv foo.pod foo.pl
$ perldoc -T foo.pl 
...
$ echo $? 
1
$

$ cat foo.pl
#!/usr/bin/perl -w
...
$ echo $?
0
$