Select Code to Download

#!/usr/bin/perl
require 5.006;
...
$dir->Set() 
    ? print "\nDone\n";
    : print "\nFailed\n";

.