#/usr/bin/perl -w

use File::Basename;
use strict;

my @files = <*>;

foreach my $file (@files) {
	my ($name,$dir,$type) = fileparse($file,'\..*');
	print sprintf("file= %30s", $name), sprintf("  ext= %10s", $type),"\n";

}