#!/usr/bin/perl

undef $/;

while ($f = shift)
{
  open (File,$f) || die("could not open file '$f' ($!)\n");
  $t = join("\n",sort split(/\n/,<File>));
  close (File);
  open (File,">$f") || die("could not write file '$f' ($!)\n");
  print File $t;
  close(File);
}