use File::Basename qw/basename/;

my $file = shift || '//server/c$/app/bin/somefile.txt';

print( basename($file), "\n" );