#! /usr/bin/perl -w

use strict;

open(FILE,"</dev/mtd0ro") or die "Could not open device";
while(my $line=<FILE>){
	if($line=~ /U-Boot (\S*) .*\((.*)\) MPC83XX/){
		print "Version: $1\nDate   : $2\n";
	}
}
close(FILE);