Select Code to Download

#!/usr/local/bin/perl -w
$++;
...
$_ = <PIN>;
print $1 if /time=(\d+)/;
close(PIN);