use File::Basename; my $script = basename($0); my $logpath = '/path/to/logs/'; open STDOUT, ">> ${logpath}${script}OUT.log" or die $!; open STDERR, ">> ${logpath}${script}ERR.log" or die $!;