#!/usr/pkg/bin/perl
#
# Display a compressed SVG file
#

require 5.004;

use Fcntl;

print <<END;
Content-Type: image/svg+xml

END
    
sysopen(STDIN, $ARGV[0], O_RDONLY);
exec('/usr/bin/gunzip');
