#!/usr/bin/perl -w 
use strict;
use warnings;
sub main
{
    my $path = "\\\\127.0.0.1\\c$\\bak\\";
    $path =~ s/\\$//;
    print __FILE__.__LINE__." path $path\n";
    return;

}

main();