use Auto::Log;

my $log = new Auto::Log, "some.log";
...Write some code here...
print "INFO: This gets printed to the log file"
$log->DESTROY;