my $file = '1174639.conf'; my $buf = `cat $file`; my @conf; eval( $buf );