#! /usr/bin/perl

use strict;
use warnings;
use FileHandle;

my $file;

if (-e $ARGV[0]){
     $file = $ARGV[0];
     hostreport();
} else {
     die;
}

sub hostreport {
     open(my $fh, "<file");
     while (<$fh>){
          print if (/^\<ReportHost/../^\<\ReportHost>/);
     }
}

print $file;