open ( FILE, ">>input.txt" ) or die ( "input.txt: $!" );
##</code><code>##

my $variable = localtime;
my $words = "This is the time : $localtime";

open (FH">>input.txt") or die "$!\n";

while (<FH>) {

print FH $words;

}