#!/usr/bin/perl

use strict ;
use warnings ;

my $output = qx'echo $SHELL' ;

print $output ;