#! /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__