Select Code to Download

#!/usr/bin/perl

...

exit;

$VAR1 = \bless( {
                   'ofilename' => '/home/decmoon/tmp/test.mp3',
...
            'TIT2' => 'Title/songname/content description'
          };
$VAR1 = \{};