#! /usr/bin/perl
use strict;
use warnings;
use CGI;

my $q = CGI->new;

# Content-Disposition Header generieren
print $q->header( -type => 'text/plain', -attachment => 'my.sql' );

# Daten ausgeben
while ( defined( my $line = <DATA> ) ) {
    print $line;
}

__DATA__
my
sql
stuff