#!/usr/bin/perl

my $source = shift;
die "source not defined\n" unless (defined($source));

open (SOURCE, "<$source") || die "Can't open $source: $!\n";

LINE: while (<SOURCE>) {
    m/^%%BoundingBox: (\d+) (\d+) (\d+) (\d+)\s*$/ && do { print ("$1 $2 $3 $4\n"); last LINE; }
}

close (SOURCE);