In addition to File::Basename:

# UNIX path
($path, $name) = _path('/etc/shadow');
print "path: $path \t name: $name \n";

# dos path
($path, $name) = _path('c:\windows\system\setup.inf');
print "path: $path \t name: $name \n";

sub _path {
        $^O =~ /LINUX/i and $_[0] =~ m#(.*)/(.[^/]+)?$#;
        $^O =~ /32/     and $_[0] =~ m#(.*)\\(.[^/]+)?$#;
        $1 && $2 ? return $1, $2  : $_[0]
}
[download]