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

my $i = 1;

for my $file (@ARGV) {
    open_read($file, $_) for (0,1);
}

sub open_read {
    my ($file, $binary) = @_;
    my $file_size = -s $file;
    open IT, $file or die "Can't open $file: $!";
    binmode IT if $binary;
    my $handle_size = -s IT;
    my $read_len = read IT, my $buffer, -s IT;
    close IT;

    printf "%d) %5s (%s): File size   %5d, Read length   %5d,\n",  $i++,
	    $file, $binary ? 'b' : ' ', $file_size, $read_len;
    printf "            : Handle size %5d, Buffer length %5d,\n",
	    $handle_size, length $buffer
}
__END__