[Perl] Funcion getdrive

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

1 2 3 4 5 6 7 8 9 10 11 12 13

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

Ejemplo de uso

1	print getdrive();