#!/usr/bin/perl -wT

use strict;

open ( AAA, "$ARGV[0]:\x{0005}SummaryInformation" )
  or die "Cannot open: $!\n";

while ( <AAA> ) {
  print "$_\n";
}