Select Code to Download

use warnings;
use strict;
...
    },
)->parsefile($file);
print Dumper(\@records);

use strict;
use warnings;
...
    };
}
print Dumper(\@records);