Select Code to Download

$canvas->move('text', 0, -45);

     $tempstring .= $buf;
     if($tempstring =~ /\n/){
...
        write_lyric("$temps[0] $temps[1]\n");
       $tempstring = '';
      }

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