Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}# end of main
    1;

C:\Temp>perl -e "require 'crow.pl'; print map{qq|$_\n|} ret_files('.')
+;" > do.dat

perl -ne "BEGIN{require 'crow.pl'}; main($_)" do.dat