#!/usr/bin/env perl
use strict;
use warnings;

package parser;
use Data::Dumper;

print "> ";
my $raw_input = <STDIN>;
chomp $raw_input;
my @split_input = split(/\s+/,$raw_input);
#print $split_input[1];
#print scalar @split_input
#print "Okay, you said: @split_input\n";
print Dumper \@split_input;

1;