#!/usr/bin/perl -w

#no need here, but you should put this in all your scripts.
use strict;

while (<>) {
    print "$_\n";
}