use strict;
use FileUpload::Filename;

# Usually used in combination with the upload handler, so it will be
# implicitely set.
$ENV{HTTP_USER_AGENT} = 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; Zune 2.0)';

my $name = FileUpload::Filename->name({
    filename => 'Z:\my_files\docs\some_kind_of_manual.pdf',
});
print "[$name]\n";

$name = FileUpload::Filename->name({
    filename => '/home/someguy/file.txt',
});
print "[$name]\n";

$name = FileUpload::Filename->name({
    filename => 'home:anotherguy:A Music Song.mp3',
});
print "[$name]\n";

##</code><code>##

[some_kind_of_manual.pdf]
[file.txt]
[A_Music_Song.mp3]