use Sys::Syslog;

 $filename=$ARGV[0];
 $name="system.log";
 openlog($name, "ndelay,pid", "local0");
if (!defined $ARGV[0]) {
 syslog("info", "$filename is not there");
  
};