getting multiple and variable input from the user

[brittany1]

i want to write something that will accept multiple user input, then connect to a remote server and execute the commands entered. My question is : what is the best way to gather the users input. this is what I have so far .. just seems like theres a better way to do it ?

For instance when I run the program
Enter one command per line then press enter.
when you are complete entering data, press enter.
ifconfig
You typed: ifconfig
ls -l
You typed: ls -l
netstat -rn
You typed: netstat -rn

The following is what will be sent to the remote device.
ifconfig
ls -l
netstat -rn
Are these statments correct ? y or n ?

#!/usr/bin/perl
##!c:\Perl\bin\perl.exe
use warnings;
use strict;
my @cmdlist;
my $cmd;
system("clear");
print "\nEnter one command per line then press enter.\n";
print "when you are complete entering data, press enter.\n";
    while (<>) {
        last if ($_ =~ /^\s*$/); # Exit if it was just spaces (or just an enter)
        print "You typed: $_";
        push @cmdlist, $_;
    }
    system("clear");
    print "The following is what will be sent to the remote device.\n" ;
    foreach (@cmdlist) {
    do
    print "$_";
    }
    print "Are these statments correct ? y or n ?\n" ;

~