use strict;

my $path = shift;
my($drive, $top) = ( split('\', $path) )[0,1];