Select Code to Download

use strict;
use warnings;
...
   close Reader;
   print "output from date:\n",join("|", @prog_out), "\n";
}

Thu Feb 28 08:08:13 CST 2008
$out = 
output from date:

output from date:
Thu Feb 28 08:09:54 CST 2008

$out =