print<<EOTitle;
##############################################################################
#
#     Rob's import fixer
#
##############################################################################
EOTitle

my $oldPackage = &query( "Which package has moved?" );
my $newPackage = &query( "Where has it moved to?  " );
my $file;

foreach $file ( <*.java> )
{
   if (open( IN, $file ))
   {
      my @dat = <IN>;
      close IN;
      
      if ( grep( (/^import\s.*$oldpackage/) && (s/$oldPackage/$newPackage/), @dat )
        && open( OUT, ">$file" ) )
      {
         print OUT @dat;
         close OUT;
         print "$file updated\n";
      }
   }
}

sub query
{
   my ($question) = @_;
   my $reply;
   
   print "$question ";
   chomp( $reply = <STDIN> );
   return $reply;
}