print "Calculating...\n"; my $endtime = time + 25; my $x; while(time < $endtime) { $x++; # Todo: Implement better algo for wasting CPU cycles } open(my $ifh, '<', 'solution.txt') or die($!); while((my $line = <$ifh>)) { print $line; } close $ifh;