#!/usr/bin/env perl

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

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

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

----------------------

##</code><code>##

+ cd /home/rmattern/projects
+ date
Tue Jun  1 07:30:01 PDT 2021
+ pwd
/home/rmattern/projects
+ /usr/bin/bash -i
[rmattern@sc-sd-linux19 ~]$ pwd
/home/rmattern
[rmattern@sc-sd-linux19 ~]$