#!/usr/bin/perl -w
use strict;

# Minimalist file IO
# - Trick: ARGV comes from the command line
# - Trick: ARGVs are opened automatically

# Check for correct usage:
if (! (defined @ARGV) ) {
    print STDERR "Usage: $0 file1 [ file2 ... ]\n";
    print STDERR "\tto print files\n";
    exit 1;
}

# Loop: read lines from the file
while (<>) {
  print $_;              # Each input line is assigned to $_
}

exit;
