use feature qw( say );

binmode DATA if $ARGV[0];
while (<DATA>) {
   say sprintf "%v02X", $_;
}

__DATA__
abc
def