$ perl -E 'say -t STDIN ? "interactive":"non-interactive"'
interactive

##</code><code>##

perl -E 'open F, "/proc/".getppid()."/cmdline" or die $!; $_=<F>; tr/\0/ /; say'
bash -rcfile .bashrc