[...]
$dbh->disconnect();

&dateiausgabe();

&mailversand();

sub dateiausgabe
{
        $old_fh = select(FILE);
        $| = 1;
        select($old_fh);
        }

use DBI;

use Mail::Sender;

my $dbh = DBI->connect( "$datenbankinformationen","$username","$password") || die "Database connection not made: $DBI::errstr";

my $sql = qq{SELECT sum(e.anzahl) as menge_gesamt, e.spot_id, e.tag, s.name, sp.title, e.anzahl FROM einblendungen e, clients c, standorte s, spots sp where c.id = e.client_id and c.standort_id = s.id and e.spot_id = sp.id and e.tag between '$zeitraumvon' and '$zeitraumbis' and e.spot_id like '$spot_id' group by e.client_id, e.spot_id};

#Textdatei-Handle wird eröffnet
open(FILE,">/Users/hoamer/Desktop/$dateiname");


$sth->execute();

while(@ergebnis=$sth->fetchrow_array)
{
        
        #Überprüfung, ob die Variable zahler=0 ist. Somit gehen wir sicher, dass dies nur einmal geschrieben wird.
        #Die Ausgabe des Textes geschieht in der Schleife, da man sonst nicht auf bestimmte Werte in der DB zugreifen kann.
        #In unserem Fall benötigen wir dies für den Namen des Spots.
        if($zahler==0)
        {
                printf FILE  "\n\n\n\n\n\n\n\n\nSehr geehrte Damen und Herren,\n\n\n\n\nblabla... Zeitraum vom %s bis zum %s gesendet wurde: \n\n\n", $ergebnis[4], $zeitraumvon, $zeitraumbis;
                $spotname=$ergebnis[4];
                printf FILE  "Spots/std. \t Gesamtzahl \t Name\n\n";
        }
        else
        {
        }


        #Auflistung der Werte als gefakete Tabelle (nur wegen der .txt, aber nicht wichtig)
        if(length($ergebnis[0]) ==1)
        {
                $ergebnis[0] =~ s/\Z/     /g
                
        }
        if(length($ergebnis[0]) < 4)
        {
                $ergebnis[0] =~ s/\Z/  /g;
        }
        else
        {               
        }
        
        
        #In datenbank sind Zeilenumbrüche vorhanden, welche hier ausgeschlossen werden sollen
   $ergebnis[1] =~ s/\n+\s//g;
   $ergebnis[5] =~ s/\n+\s//g;
   $ergebnis[0] =~ s/\n+\s//g;
   $ergebnis[3] =~ s/\n+\s//g;
   $ergebnis[1] =~ s/^\n+//g;
   $ergebnis[5] =~ s/^\n+//g;
   $ergebnis[0] =~ s/^\n+//g;
   $ergebnis[3] =~ s/^\n+//g;
   $ergebnis[1] =~ s/\n//g;
   $ergebnis[5] =~ s/\n//g;
   $ergebnis[0] =~ s/\n//g;
   $ergebnis[3] =~ s/\n//g;
  
        #Ausgabe
   
    print FILE  $ergebnis[5]."\t\t ".$ergebnis[0]."\t\t ".$ergebnis[3]."\n";    
   
    $zahler++;
}

print FILE "\n\n\nWir Bestätigen, dass das oben genannte Material gesendet wurde.\n\n\n\n\n\nMit freundlichen Grüßen\nVICI Connect"; 

#handle schließen
close(FILE);

#View muss wieder aus der tabelle entfernt werden
my $sql = qq{DROP VIEW VICIadmin_development.ubergabeview};
my $sth = $dbh->prepare( $sql );
$sth->execute();

#Datenbank-Handle "so, das wars..."
$sth->finish();

#Datenbank-Handle wird geschlossen
$dbh->disconnect();

&mailversand();

sub mailversand 
{
        sleep 15;
    #Die Datenausgabe kann auch bei "*1" direkt stattfinden, anstatt, dass diese als Attachment gesendet wird.
        
 
 # my $mailtext = "Das ist der Text\nden ich gerne senden wuerde..."; 
  
  
  my $sender = new Mail::Sender 
  {
                smtp => 'mail.gmx.net',
                from => '546@gmx.de',
                auth => 'LOGIN',
                authid => '12345',
                authpwd => 'jjjjjjjj',
                on_errors => undef,
  }  or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";

$sender->MailFile
 (
  {
                to => $usermails,
                subject => 'Spotinformationen',
                msg => "Sehr geehrte Damen und Herren, \n\nblablabla '$spotname' im Zeitraum vom '$zeitraumvon' bis zum '$zeitraumbis'.\n\n\nAnhang:\n$dateiname", 
                file => $dateiname,
   }
);