Select Code to Download

my $origin = File::Spec->file_name_is_absolute($0) ? $0 : File::Spec->
+rel2abs($0) ;
...
        (chdir $path and print "OK chdir to $path\n")|| die "FATAL una
+ble to change directory to '$path'.";
}