#use File::Basename;
#fileparse_set_fstype("MSDOS");
#The other supported types are AmigaOS, os2, MSWin32, VMS, MacOS, and RISCOS.
#UNIX is the default type.
#!/usr/bin/perl -w
use File::Basename;
fileparse_set_fstype("MSDOS");
$fullname = 'C:\Perl\lib\site\validate.pl';
@suffixlist = '.pl';
($basename, $directory_path, $suffix) = fileparse($fullname, @suffixlist);
print "For $fullname\n";
print "base: $basename\n";
print "path: $directory_path\n";
print "ext.: $suffix\n";