Select Code to Download

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

# Config file for a perl script.

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

#! /usr/bin/perl -w

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

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

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

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

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