#!/usr/bin/perl -W use warnings; #gotta find the errors some how... print<