7 use File::Basename qw(dirname);
1165 while(my($from, $to) = each %$fromto) {
1187 my $dirname = dirname($to);