Select Code to Download

#!/usr/bin/env perl
# This script shoots holes in files.
...
    $MAG = read_json($MAG_FILE) or die("Problem reading mag file!");
    print JSON->new->ascii->pretty->encode($MAG);
}