Select Code to Download

#!/usr/bin/perl

...
eval {do 'services.txt'};

print Dumper $services_restored;

$VAR1 = {
  '1' => {
...
    }
  }
};