#!/usr/local/bin/perl

$Desc = shift @ARGV;
$File = $ARGV[0];

open(NEW, ">$File.p4submit.$$");

while (<>)
  {
    if (/^\t<enter description here>/)
      { print NEW "\t$Desc\n"; }
    else
      { print NEW; }
  }

close NEW;
rename "$File.p4submit.$$", "$File";
exit 0;