[Koha] Barcode's continued part two

[library at princeofpeaceabbey.org]

Trying to run this:

"""

use Modern::Perl;
use Koha::Biblios;
use Koha::Items;

my $biblios = Koha::Biblios->search;
my $branchcode='ppa';
while ( my $biblio=$biblios->next) {


		Koha::Item->new(
		  {
				biblionumber => $biblio->biblionumber,
				homebranch   => $branchcode,
				holdingbranch =>$branchcode,
				barcode	=>"barcode_".$biblio->biblionumber,
				itype =>$biblio->biblioitem->itemtype,
		  }
		)->store;
}

"""

But get this instead:

String found where operator expected at barcode.pl line 22, near “””
	(Might be a runaway multi-line “” string starting on line 1)
		(Missing semicolon on previous line?)
syntax error at barcode.pl line 22, near “””
execution of barcode.pl aborted due to compilation errors.

As you can tell I do not know Perl. So any help will be nice.

Raphael