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

...