#!/usr/bin/perl
# Passes a Package file to several files, one per package,
# with the information of each package

$print=0;
open (PACK,">/dev/null");
while (<STDIN>) # Must be given as input
{
	if (/^Package: (.*)$/)
	{ $package=$1; 
	  close PACK;
	  open (PACK,">$package") || die "Could not open file $package for writing"; 
	 }
	 print PACK;
}
exit 0;
	  
