Hey bjensen34... maybe this is closer (I'm trying not to think very hard about why you want to do this):
# USAGE $0 {failover|normal|status} $1 {serial}
# Syntax: DRDNSfail.pl {failover|normal|status} {serial}
# Return: SUCCESS | ERROR
# $version = "1.0";
#------------
# definition
#------------
$VARIABLE = $ARGV[0];
$Serial = $ARGV[1];
$HOME_DIR = "/var/named/DRBAK";
$ROOT_DIR = "/var/named/zone";
#----------------------------------------------------
`perl -pi -e 's/2007\d\d\d\d\d\d/$ARGV[0]/' $ROOT_DIR/* $Serial`;
|