#!/usr/bin/perl
print "Enter the hostname of the computer: ";
$hostname = <stdin>;
print "Enter the sharname you wish to mount: ";
$share = <stdin>;
print "Enter a valid username: ";
$username = <stdin>;
print "Enter the password:";
system "stty -echo";
$password = <stdin>;
system "stty echo";
print "\nSpecify a mount point?: ";
$mntpoint = <stdin>;
$options = "username=$username,password=$password";
system("mount", "-t", "smbfs", "-o", "$options", "//$hostname/$share", "$mntpoint");