#!/usr/bin/perl -w
open FOUT, ">/tmp/SneakyOutput.txt";
$str = localtime;
print FOUT "$str\n";
close FOUT;
