wilber:~$ gdb /usr/bin/debugperl 
GNU gdb 6.4-debian
Copyright 2005 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "x86_64-linux-gnu"...Using host libthread_db library "/lib/libthread_db.so.1".

(gdb) run -dle 'my $x; print \$x'
Starting program: /usr/bin/debugperl -dle 'my $x; print \$x'
[Thread debugging using libthread_db enabled]
[New Thread 46912504641232 (LWP 20986)]

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1):   my $x; print \$x
  DB<1> n
main::(-e:1):   my $x; print \$x
  DB<1> p \$x
SCALAR(0x71bd20)

  DB<2> ^C
Program received signal SIGINT, Interrupt.
[Switching to Thread 46912504641232 (LWP 20986)]
0x00002aaaaae54162 in __read_nocancel () from /lib/libpthread.so.0
(gdb) bt
#0  0x00002aaaaae54162 in __read_nocancel () from /lib/libpthread.so.0
#1  0x00002aaaab5b0657 in rl_getc (stream=0xb97170)
    at /build/buildd/readline5-5.1/input.c:451
#2  0x00002aaaab5b0615 in rl_read_key ()
    at /build/buildd/readline5-5.1/input.c:431
#3  0x00002aaaab59ec41 in readline_internal_char ()
    at /build/buildd/readline5-5.1/readline.c:479
#4  0x00002aaaab59eceb in readline (prompt=<value optimized out>)
    at /build/buildd/readline5-5.1/readline.c:526
#5  0x00002aaaab45288b in XS_Term__ReadLine__Gnu__XS_rl_readline ()
   from /usr/lib/perl5/auto/Term/ReadLine/Gnu/Gnu.so
#6  0x00000000004ca3d1 in Perl_pp_entersub (my_perl=0x6d1010) at pp_hot.c:2888
#7  0x000000000049ccc5 in Perl_runops_debug (my_perl=0x6d1010) at dump.c:1452
#8  0x00000000004240f2 in S_run_body (my_perl=0x6d1010, oldscope=1)
    at perl.c:2000
#9  0x00000000004239f1 in perl_run (my_perl=0x6d1010) at perl.c:1919
#10 0x000000000041d2ca in main (argc=3, argv=0x7fffffbfd848, 
    env=0x7fffffbfd868) at perlmain.c:98


##</code><code>##

wilber:/usr/src/perl-5.8.8$ gdb /usr/bin/debugperl 
GNU gdb 6.4-debian
Copyright 2005 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "x86_64-linux-gnu"...Using host libthread_db library "/lib/libthread_db.so.1".

(gdb) run -dle '$x=1;print\$x;0'
Starting program: /usr/bin/debugperl -dle '$x=1;print\$x;0'
[Thread debugging using libthread_db enabled]
[New Thread 46912504641232 (LWP 21378)]

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1):   $x=1;print\$x;0
  DB<1> n
main::(-e:1):   $x=1;print\$x;0
  DB<1> 
SCALAR(0x71bd50)
main::(-e:1):   $x=1;print\$x;0
  DB<1> 
Program received signal SIGINT, Interrupt.
[Switching to Thread 46912504641232 (LWP 21378)]
0x00002aaaaae54162 in __read_nocancel () from /lib/libpthread.so.0
(gdb) p Perl_Iorigenviron_ptr
$1 = {char ***(PerlInterpreter *)} 0x57c780 <Perl_Iorigenviron_ptr>


##</code><code>##

$h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";