Select Code to Download

my $a;
$a = "Mary had a little lamb"; # $a contains a string
$a = 2001;                     # $a now contains a number
$a = '2001';                   # $a STILL contains a number
$a .= 'AD';                    # $a is a string once more :)

print pack("i", 3000);
¨Y¡á
...
¨Y¡á
print pack("i", "3000");
¨Y¡á

my $data = Data->new("aa", 65, 1.2, "misc", "data string");
print $data->print_secs();
...
    return pack('i', $self->{'secs'});
}