###main.pl

use actions;
use subs;


print "Welcome to watever.\n";
print "This game will lead you through many perils and dangers that could lead to your death.etc etc \n";
print "ONLY THE STRONG WILL SURVIVE";

my $data = "whatever" ;
my $action;
my @items= ();
my $location = "hall";
my $health = "full";

&main($data, $location);

sub main{
my( $data, $location ) = @_;
while(<1>){
$data = &data($location);
print $data;
print "\n\n";
print "What do you want to do?? \n";
print "(type h for help.)\n";
print "Do what??\\: ";
my $action = <>;
my $noun = &action($action, $location);
print $noun;
}
}