#! /usr/bin/perl
use strict;
use warnings;

print "Please give IP of server to connect to: ";
chomp( my $ip = <STDIN> );

print "Please give share to connect to: ";
chomp( my $share = <STDIN> );

my $netuse = sprintf(
        'net use W: \\\\%s\\%s',        # %s /user:%s',
        $ip, $share,                    # $pass, $user
);

system( $netuse ) == 0 or die "'$netuse' failed: $!\n";

__END__