sub logroll { my $name = shift; # grab first argument my $logs = new Logfile::Rotate (File => $file, # etc...