use strict;
use warnings;
use Data::Dumper;

# 以下のように実行した時
# perl hoge.pl --config hoge.txt
# hoge.pl と hoge.txt は同じ場所にあるとする

my $option = $ARGV[0];                  # --config が入る
my $file   = $ARGV[1] // 'hoge.txt';    # hoge.txt が入る;

my %hash = ();                          # hoge.txtの中身格納用

# ファイルのオープン方法は以下のページとか参考
# http://d.hatena.ne.jp/perlcodesample/20110212/1303702930
# Perl入学式だと2012年の資料の後半にあった
# http://www.perl-entrance.org/static/handout/2012/perlentrance05/index.html#/title
open my $FH, "<", $file or die;
for my $line (<$FH>) {
    chomp $line;
    my ( $key, $value ) = split /=/, $line;
    $hash{$key} = $value;
}
close $FH;

print Dumper \%hash;

# $VAR1 = {
#           'hostname' => 'host.com',
#           'password' => 'hogepass',
#           'user' => 'hogehoge'
#         };

hostname=host.com
user=hogehoge
password=hogepass