This is the time: $variable

##</code><code>##

#!/usr/bin/Perl -w

use strict; # as always

open ( FILE, "input.txt" ) or die ( "input.txt: $!" );

my $variable = localtime;

while (<FILE>) {
  print $_;
}