$my_default="\\\\my\.domain\.net\\";
$my_file="info.txt";
my $path = shift @ARGV;


sub usage{
        print STDERR "\nUsage:\n";
        print STDERR "\t$0 \"the\path\"\n";
        print "\n";
}

sub grep_pattern{
       # print "$patten\n";
        foreach (@my_data)
        {print "$_\n" if /$pattern/;
        }
print "\n\n";
}

sub print_array{
        for ($i=0; $i<=$#my_data;$i++)
        {print $my_data[$i], "\n";
        }
print "\n\n";
}

unless ($path){
        &usage;
        exit (-1);
}


open(HANDLE, $my_file) || die("Open the file failed!");
@my_data=<HANDLE>;

print_array;

# Try and find the ARGV
$pattern = $path;
print "Searching for: $pattern\n";
grep_pattern;