Select Code to Download

#!/usr/bin/perl
use strict;
...

    print O $line;
}

    ls | xargs your_prog   ## or use "find ... | xargs your_prog"