my $machine = 'ybslint01';
my $sharename1 = 'wwwdev';
my $sharename2 = 'wwwybs';
my $source = "\\\\$machine\\$sharename1\\streams\\$Config{'Author'}\\$Config{'Ref'}";
my $target = "\\\\$machine\\$sharename2\\ybsone\\pipeline\\master\\13Apr\\$Config{'Ref'}";
rename $source, $target
    or die "Couldn't move '$source' to '$target' : $!";


##</code><code>##

Software error:
Couldn't move '\\ybslint01\wwwdev\streams\5110\1144336035.htm' to '\\ybslint01\wwwybs\ybsone\pipeline\master\13Apr\1144336035.htm' : Permission denied at E:\Perlcgi\Pipeline\approve.pl line 189.