Select Code to Download

$devices{$sn} = new DEVICE;
$devices{$sn}->datetime{$datetime};
# etc.

# I've snipped out what I consider to be the important bits...
# Warning: This is untested code!
...
    print "$key\n";
}