#!/usr/bin/perl

my $df = q~M"@D)=7-E($1I9V5S=#HZ340U.PH*"0DD;&EC96YS95]K97D@/2`B,SEE-64S
M83,V-S@V9&$T,&5B.#$P,C,Y8S0Q8F-D,34B.PH)"21U<V5R7VYA;64@("`]
M(")S;VAA:6(B.PH)"21E>'!I<GE?9&%T92`]("(P-R\P,R\R,#`S(CL*"0DD
M=7)L(#T@(FAT='`Z+R]W=W<N;7EO=VYE;6%I;"YI;F9O(CL*"@D)*"1T:6UE
 

click here for a screen shot