#!/usr/bin/perl
use strict;
use warnings;
`gnome-terminal &`;
open (my $OUT, '>>','/dev/pts/2');
select $OUT;
while(1)
        {
                print "Testing on this termianal\n";
                sleep(1);
        }