Help for this page

Select Code to Download


  1. or download this
    use File::Spec;

...
# and for copy
$old=catfile($dir,$file);
$new=catfile($dir1,$file);
  2. or download this
    copy ($old,$new) or die "Unable to copy '$old' to '$new': $!";
  3. or download this
    use File::Spec::Functions (qw/catdir rootdir catfile/);