#! /usr/bin/perl -w
use strict;
my $i;
foreach $i (@ARGV) {
    $! = $i;
    print "$!\n";
}
