Select Code to Download

#!/usr/bin/perl

...
               ( -d _ ) ? "subd" : "othr";
    print "$file ==$type\n";
}

use Encode;

...
open( O,">",$_ ) or die "$_:$!\n";
print O "test\n"
close O;