# **************************************************************

# filename -- extract the filename from file path

#

#     string filename( string string )

sub filename {

my $str=shift;

$str = $1 if ( $str =~ m!([^\\/]+)\?! || $str =~ m!([^\\/]+)$! );

return $str;

}