Select Code to Download

#!/usr/bin/perl

use strict;
...
close $out or die "close: $!";

__END__

$ cat out_1140475.txt 
First line, first field: 1424621700

#!/usr/bin/perl
use strict;
...
print "$first\n";

__END__

$ perl 1140475-2.pl
1424621700
$