#!/usr/bin/perl -w

# or

use warnings;

##</code><code>##

use strict;

##</code><code>##

Bareword "atob" not allowed while "strict subs" in use at ...