package CleanSubApp; use strict; use base qw/CleanApp/; 1;