#!/usr/local/bin/perl

$OrderFile = "/tmp/T-shirts";

$Name = <>; chop($Name);
$Address = <>; chop($Address);
$City = <>; chop($City);
$State = <>; chop($State);
$ZipCode = <>; chop($ZipCode);
$Phone = <>;   chop($Phone);
$email = <>;   chop($email);
$size = <>;    chop($size);
$quant = <>; chop($quant);

$order = "$Name\tAddress\t$City, $State $ZipCode\t$Phone\t$email\t$size\t$quant\n";
print "Thank you for your order request.\n\n";

print "This is only an example, we're not going to send you a t-shirt\n\n";

print "This is what your order request looks like so far:\n\n";
print "     Name: $Name\n";
print "  Address: $Address\n";
print "           $City, $State $ZipCode\n";
print "    Phone: $Phone\n";
print "   E-mail: $email\n";
print "    Order: $quant $size T-shirts\n";

print "\nIf any of this is incorrect please send a mail message to\n";
print "gopher@boombox.micro.umn.edu\n\n";

$order = "$name\n";

open(tee, ">$OrderFile");
print tee $order;
close(tee);


