#!/usr/bin/perl
use strict;

while (<>) {
# do stuff with each argument given and spit out a sting.
# this example I'll just do
print;

}