#!/usr/bin/perl
      2 print "enter the name the machine you want to telnet\n";
      3 chomp(my $mac=<STDIN>);
      4 $addr=join "",$mac,".rest.of.the.address";
               #or $addr=$mac . ".rest.of .the.address";
      5 print "$addr\n";
      6 `telnet $addr`;
      7 print "\n";
      8 print "login name\n";
      9 print "password\n";