my $basename = basename ($file, ".psd"); print "$basename\n";