Select Code to Download

#!/usr/bin/env perl                                                   
+                                                                     
+                                               
use warnings;
...

__END__

my $flat = chr( charnames::vianame(qq(MUSIC FLAT SIGN)) );

print qq(b$flat);