do "/path/to/config/file.conf";

##</code><code>##

# Config file for a perl script.

$user = 'BazB'
$pass = 'yaright';
$server = 'foo.bar.com';

##</code><code>##

#! /usr/bin/perl -w

use strict;
my ($server, $user, $pass);

do "/home/baz/testconfig.conf";

print $server, "\n", $user, "\n", $pass, "\n";

##</code><code>##

Use of uninitialized value in print at ./readconfig.pl line 8.

##</code><code>##

use strict;
my ($server, $user, $pass);

##</code><code>##

Name "main::user" used only once: possible typo at ./readconfig.pl line 8.