Select Code to Download

    my $fields;
    eval $_;
    die if $@;

    my ( $name, $location, $mapref, $type, $description ) = @$fields;

#! perl
use strict;
...

__DATA__
$name="MyName";$location="MyLoc";$mapRef="MyRef";$type="MyType";$descr
+iption="MyDesc";

$fields = ["MyName","MyLoc",undef,"MyType","MyDesc"];

use strict;
use warnings;