#!/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);
}

...

##</code><code>##

#!/usr/bin/perl

...

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

...

##</code><code>##

#!/usr/bin/perl

use IPC::Open3 qw( open3 );

...

{
   open(local *TO_CHLD, '<&', *STDIN) or die;
   open3('<&TO_CHLD', '>&STDOUT', '>&STDERR',
      'xterm', '-T', 'hello', '-e', 'tail', '-f', $fname);
}

...