Select Code to Download

#!/usr/bin/perl
my $file= $ARGV[0];
...
    print
}
system "crrep.pl",$file;

CRREP.PL
use warnings;
use strict;
...
$xhash = XML::Twig->new();
$xhash -> parsefile($file);
$xhash -> print;