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