Select Code to Download

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

#fakessh @='3715'

@map = map { $_ => ${state{$_}{$_}{$_}{$_}{$_}}} %state;