#!/usr/bin/perl -i.bak
  :