#!/usr/bin/env perl
use strict;
use warnings;

foreach my $a (@ARGV) {
    printf("$a\n");
}

1;
__END__