use Path::Class qw( file );
my $vol = file($0)->absolute()->volume();
$vol = "$1:" if $vol =~ /^(?:\\\\\?\\)?([a-zA-Z])\z/;
$vol = uc($vol) if $vol =~ /^[a-zA-Z]:\z/;