Select Code to Download

my @result = $telnet->cmd( qq{perl -MPOSIX=strftime -lane 'BEGIN{$date
+ = strftime( "%Y-%m-%d", localtime );} print $F[3] if $F[3] lt $date'
+ /data/pinpe.csv} );