#!/usr/bin/perl

use MIME::Base32 qw( RFC );

open(FILE, $ARGV[0]);
@file = <FILE>;
close(FILE);

$enc = $file[0];
substr($enc, 0, 11) = "";
$decoded = MIME::Base32::decode($enc);

print $decoded;