Select Code to Download

   package Music::DBI;
   use base 'Class::DBI';
...
# ...

   my $artist = Artist->retrieve($id);

-- 
#!/usr/bin/perl -w
use strict;$;=
";Jtunsitr pa;ngo;t1h\$e;r. )p.e(r;ls ;h;a;c.k^e;rs 
";$_=$;;do{$..=chop}while(chop);$_=$;;eval$.;