Help for this page
#!/usr/bin/perl ... use File::Copy qw( copy ); copy $ARGV[0], $ARGV[1];
my $path = '\\\\server\\share\\dir\\file';
my $path = '//server/share/dir/file';