#X3D V3.0 utf8

PROFILE "Full"

META "name" "ui.x3d"

DEF Script {
	initializeOnly  SFString  version  "v0.01" 
	url "perl:
sub initialize {
	my $this = shift;
	printf \"Welcome to %s %s\n\", $this->name, $this->version;
}

sub shutdown {
	my $this = shift;
	printf \"%s %s finished\n\", $this->name, $this->version;
}
"
}
