#!/usr/bin/perl

use strict;
use warnings;

use File::Copy qw( copy );

copy $ARGV[0], $ARGV[1];

##</code><code>##

my $path = '\\\\server\\share\\dir\\file';

##</code><code>##

my $path = '//server/share/dir/file';