#!/usr/bin/perl
use strict;
use Tie::File;

my @file;
tie @file, 'Tie::File', "/etc/postfix/main.cf";
for(my $i = 0; $i < $#file; $i++) {
  if($file[$i] =~ /mailbox_command =/) {
    $file[$i] = "mailbox_command = /usr/bin/procmail ~/mail_scripts/procmailrc";
  }
}
untie @file;
