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