#!/usr/bin/perl 

if($#ARGV != 1) {
  print "Usage: split frac file\n";
  exit;
}

$frac = shift @ARGV;

@lines = <>;

$num_labeled = $frac*($#lines+1);

open OUTPUT, '>', "labeled";
print OUTPUT @lines[0..($num_labeled-1)];
close output;

open OUTPUT, '>', "unlabeled";
print OUTPUT @lines[$num_labeled..$#lines];
close OUTPUT;
