#!/usr/bin/perl

use strict;
use warnings;
#use diagnostics;

die 'Usage: ', $0, ' [input-file output-file]', "\n" unless scalar @ARGV == 2;

open my $INFILE, '<', $ARGV[0] or die "open error: $!\n";
open my $OUTFILE, '>', $ARGV[1] or die "create error: $!\n";
print $OUTFILE (split /;/, $_)[0], "\n" while (<$INFILE>);
close $OUTFILE;
close $INFILE;
exit 0;