File Perl

  1. Home
  2. Perl
  3. File
  4. Input Filter
!/bin/perl
open(INPIPE, "date /T |");    
$today =  ";
print $today;
close(INPIPE);