use File::Spec::Function qw( rel2abs );
my ($drive) = rel2abs($0) =~ /^([A-Z]):/i;