#!/usr/bin/perl
use strict;
use warnings;

open(FH,"<adminpass");
binmode FH;
my $binstring= <FH>;

print "$binstring\n"; 

my $hexstr= unpack "H*",$binstring;
print "$hexstr\n";

my $binback= pack "H*",$hexstr;
print "$binback\n";