#!/usr/bin/perl
use strict;
my $sharename="//servername/directory/";