if ($FILE) {
 open(FILE,"<",$FILE) || fatal_error("Unable to open file $FILE");
 $HANDLE='FILE'
}
else {
 $HANDLE='STDIN';
}

################################################################################
#MAIN
################################################################################
while (defined(my $line = <$HANDLE>)) {
 print "$line";
}