Select Code to Download

#/usr/bin/perl -w

...
    print sprintf("file= %30s", $name), sprintf("  ext= %10s", $type),
+"\n";

}

my($filename,$ext) = split(/\./,$file);