#!/usr/bin/perl

open(FH,"pr_req_campus_t_auto.pdf");
read FH,$data,(stat("pr_req_campus_t_auto.pdf"))[7];
print $data;
#print "hello";