#!/usr/bin/perl

...

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

...