#!/bin/perl
use warnings;
use strict;
use File::Basename;
my $file = '//server/path/filename.ext';
print basename($file);