jahway603

### WARNING: READ CAREFULLY BEFORE ATTEMPTING ###
#
# Officially, this is not recommended. YMMV
# https://www.raspberrypi.com/news/bookworm-the-new-version-of-raspberry-pi-os/
#
# This mostly works if you are on 64bit. You are on your own if you are on 32bit or mixed 64/32bit
#
# Credit to anfractuosity and fgimenezm for figuring out additional details for kernels
#

jahway603

#!/usr/bin/perl -w
use strict;

@ARGV or die "Usage: $0 PNGFILE...\nOutputs the file names of the PNG files with trailing data.";

FILE: while (@ARGV) {
    my $fn = shift;
    eval {
        no warnings 'exiting';