Mega Code Archive

 

Categories / Perl / File

 

Input Filter

!/bin/perl open(INPIPE, "date /T |");     $today = <INPIPE> "; print $today; close(INPIPE);