file: qiv-command 15: my $in = Path::Class::dir->file($in_file_name); 16: $in_file_name =~ s{/+}{_}g; 17: copy( $in->stringify, $out->file($in_file_name)->stringify );
copy the file