use Data::Dumper;
  open($f,'>','/tmp/log);
  print $f Data::Dumper($arg);
  close($f);