*$=sub{$a=q;}die;;sub u(){$_}$=&&unpack u=>u};s[]
{82G5S="!A;F]T:&5R(%!E<FP\@:&%C:V5R}six;die&$=>$/
[download]

Don't hold it too close to the light, it will fall apart. :-)