use strict;
use warnings;
use Data::Dumper;
use CGI::Pretty qw(:standard);

print header;
print while <DATA>;

print pre( Dumper { CGI::Vars() } );

__DATA__
<form method="post" action="?rm=page3">
viewer:
   <input type="text" name="view" size="10" /><br/>
phone:
   <input type="text" name="phone" size="10" /><br/>
   <input type="submit" name="cm" value="login" />
</form>