What trick is that? :)
Woops.....you may want to chage
$dir =~ /^[\w.-]+$/ or &error("Invalid directory");
to
$dir =~ /^[\w.-\/]+$/ or &error("Invalid directory");
Woops.....you may want to chage
$dir =~ /^[\w.-]+$/ or &error("Invalid directory");
to
$dir =~ /^[\w.-\/]+$/ or &error("Invalid directory");