Select Code to Download

sub shell_escape {
    my ( $string ) = @_;
...

    return $string;
}

my $suspect = shift;
my $quoted_suspect = shell_escape( $suspect );
system( qq{echo "$quoted_suspect"} );