use strict;
use warnings;
use CGI;

my $flash_file = 'your_flash_file.swf';
open FLASH, '<', $flash_file or die $!;
binmode FLASH;

my $q = new CGI;
print $q->header(
                 -content-type   => 'flash/swf'
                 -content_Length => (stat FLASH)[7]
                );

my $buffer;
while (read(FLASH, $buffer, 1024) > 0){
    print $buffer;
}

close FLASH;