Select Code to Download

open(DATA,"data.pl");
   while (<DATA>) {$data .= $_;}
close DATA;

eval $data;

@array = (
        { label => "backup.hostname.com",
        status => "on",
...
        error => 'Failed',
        },
);