Select Code to Download

  DB<3> open FH, ">/tmp/foo.txt";
  DB<4> print FH "THIS IS AN EXAMPLE";
  DB<5> print FH $user_id;
  DB<6> close FH

  DB<6> s $profile->to_xml()
main::((eval 35)[/usr/lib/perl5/5.6.1/perl5db.pl:1521]:3):
3:      $profile->to_xml();
  DB<<7>>

$DB::single = 1;