#!/usr/local/bin/perl

$^I = ".bak";

while (<>)
 {
  s/\$class->bind\(/\$mw->bind(\$class,/g;
  print;
 }
