perl -MCarp::Always edit2.pl    
Use of uninitialized value $action in string eq at edit2.pl line 22 (#1)