[blazar@zion blazar]$ perl -le 'print 1; system "bash"; print 2'
1
[blazar@zion blazar]$ whoami
blazar
[blazar@zion blazar]$ exit
2
[blazar@zion blazar]$