$ cat foo
use File::Basename;

$\="\n";
print $^O;

$file = 'C:/Windows/images/hello.gif';
$filename = basename($file);

print $filename;

$ perl foo
freebsd
hello.gif