$ perl -le'use Config; print $Config{sh}'
/bin/sh

##</code><code>##

$ /bin/sh -c 'echo $SHELL'
/bin/bash

##</code><code>##

sub backticks_mysh {
  open(my $pipe, '-|', '/bin/mysh', '-c', $_[0])
     or return;
  local $/ = wantarray ? $/ : undef;
  <$pipe>
}