#!/bin/perl

use strict;
my $current = $ARGV[0];

open CURRENT, $current;

while ( <CURRENT> ) {
    if ( $_ =~ /<origination/ ) {
        close CURRENT;
        exit;
    }
}
print "$current does not have an origination element.\n";
##