my $version = qx(VER); say $version;