use File::Basename (); #### use File::Basename qw{dirname}; #### @EXPORT = qw(fileparse fileparse_set_fstype basename dirname); #### use File::Basename qw{!basename};