#!/usr/bin/perl -w

my $file = "blopp.gif";

binmode STDOUT;

$var='GIF89a	 	 �  ���������������������������������������         !�
   ,    	 	  %��I�T8���˴�����y��`�4EP�T|oUF ;';

open(OUTFILE, '>blopp.gif') or die "Could not open blopp.gif"; 

print OUTFILE $var;

close(OUTFILE);