my $dev = '';
$dev = 'G' if( -d 'G:\\af' );
$dev = 'H' if( -d 'H:\\af' );