#!/usr/bin/perl
use strict;
use warnings;

# this is a 'HERE' document that is enclosed in back ticks and will execute on the shall
print <<`EOF`;

echo going to root directory

cd /

echo run pwd

pwd

echo run ls

ls -lart

EOF