Select Code to Download

$ echo 'some text' > 1.pdb
$ echo 'some more text' > 2.pdb

$ cat foo.pl
#!/usr/bin/perl
...
    print "Content of $file is $content\n";

}

$ perl foo.pl
Content of 1.pdb is some text
Content of 2.pdb is some more text