#!/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;