my $DRIVENAME = (split /\//,$ENV{PWD})[1] ;