#!/usr/bin/perl

my $fname = "/tmp/help.txt";
system("echo help me > $fname");

my $pid = fork();
if ($pid == 0)
{
   exec("xterm -T hello -e tail -f $fname");
   exit($! || 255);
}

...