#! /usr/bin/env perl

use File::Basename;

my $dir = shift;
$dir =~ s/\/$//;

foreach (@ARGV) {
    my $name = basename($_, "");
    if (length($name) > 20) {
	$name =~ s/^(.*)(\..*)$/shorten($1, $2)/e;
    }
    print "$_=$dir/$name\n";
}

sub shorten
{
    my ($name, $suffix) = @_;
    $name = substr($name, 0, 20 - length($suffix)) . $suffix;
    return $name;
}
