package mylog;
use strict;
use Data::Dumper;
open LOGFILE, ">log.txt";
sub log {
 print LOGFILE, Dumper @_;
}

sub END {
 close LOGFILE;
}


#now in your main proggie
&mylog::log("This is a logged message");