#!/usr/bin/env perl

use strict;
use warnings;
use autodie ':all';

my @commands = (
    'set -vx',
    "cd $ENV{HOME}",
    'date',
    'pwd',
    '/usr/bin/bash -i',
);

system qw{/usr/bin/xterm -e}, join ';', @commands;