Con esta funcion podran tener el tipo de disco que se e esta ejecutando actualmente (c:/ o el que sea)

#By Doddy H
use Cwd;
 
 
sub getdrive {
 
$path = getcwd();
 
if ($path=~/(.*):\/\//ig or $path=~/(.*):\//) {
return $1.":/";
} 
 
}
 

Ejemplo de uso

print getdrive();