Select Code to Download

#!/usr/bin/perl
use strict;
...
}

print Dumper $x;

$VAR1 = {
          'status' => [
...
                                '0'
                              ]
        };