#!/usr/bin/perl use warnings; use strict; while () { print; }