#!/usr/bin/env perl

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

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

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