#!/usr/bin/perl
###########################################
# main.pl -- Import statistic data into mysql tables
###########################################

use strict;
use warnings;
use DBI;                  #used by global.pm
use File::Copy;           #used by global.pm
use Global;               #our own module for all relevant subroutines
use Parameters;           #our own module for global vars


#=============== MAIN =====================
get_data1();
get_data2();
print "Scriptende!\n";
#=============== END MAIN =================

#!/usr/bin/perl

###########################################
sub trim($) {
###########################################
  my $string = shift;
  $string =~ s/^\s+//;
  $string =~ s/\s+$//;
  return $string;
}
# und hier folgen weitere subs
1;

#!/usr/bin/perl

$ONE_DB = 's_stat';        
$DB_HOST = 'localhost';        
$DB_TYPE = 'DBI:mysql:'.$ONE_DB.':'.$DB_HOST;    

$ONE_DB_USER = '########';    
$ONE_DB_PASS = '########';    
# weitere Konstaten

1;

# ls -1
hauptscript.pl
funktion1.pl
funktion2.pl

#!/usr/bin/perl
# hauptscript.pl

use strict;
use warnings;

require( "./funktion1.pl" );
require( "./funktion2.pl" );

print funktion1();
print funktion2();

#!/usr/bin/perl

use strict;
use warnings;
use Funktionen;

funktion1();
funktion2();

package Funktionen;

use base 'Exporter';
our @EXPORT = qw(funktion1 funktion2);

sub funktion1{
    print "funktion1\n";
}

sub funktion2{
    print "funktion2\n";
}