#!/usr/bin/perl --
BEGIN {
    use File::Spec;
    use File::Basename();
    our $thisf = File::Spec->rel2abs( $0 );
    our $thisd = File::Basename::dirname($thisf);
}
[download]