Map G => '\\\\192.168.21.15\\c$', { persistent => 1 };

##</code><code>##

my $ip = 'shift';
my $share = '\\\\' . $ip . '\\c$';
Map G => $share, { persistent => 1 };