#!/usr/bin/perl

use strict;
use warnings;

use lib qw(pfad_zu_pm);
use local_config;
use start;

my $exit_val = &start_main($name, $abbrev);

return $exit_val;

#!/usr/bin/perl

package local_config;

use strict;
use warnings;

use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw($name $abbrev);

$name="blafasel";
$abbrev="bla";

#!/usr/bin/perl

package start;

use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(start_main);

use strict;
use warnings;

sub start_main {

  $name = shift;
  $abbrev = shift;

  open(FILE, "+>blatext.txt") or die $!;
  print FILE $name."\n";
  print FILE $abbrev."\n";
  close FILE;
}
1;