Select Code to Download

$ cat file_gen.pl
#!/usr/bin/env perl
...
    print "$t: line: $_\n";
    sleep 1;
}

#!/usr/bin/env perl
use strict;
...
    print join("", @lines),"\n";
    sleep 5;
}