#!/usr/bin/perl
$drvname="//shareddrive/directory/";
open (IN,"<$drvname/filename) or die "can't open file: $!\n";
.
.
.
.
exit 0;