#!/usr/bin/perl

use strict;
use File::Basename;

for my $pathname ( @ARGV )
{
    my $ostype = ( $pathname =~ /\\/ ) ? "MSDOS" : "UNIX";
    fileparse_set_fstype( $ostype );

    warn "\n  parsing $pathname using $ostype rules\n";

    my ( $name, $path, $suffix ) = fileparse( $pathname, qr{\.\w+$} );
    print "Name: $name\nPath: $path\n.Ext: $suffix\n";
}