abort.pl

#!perl
#p7-pretend
use strict;
use warnings;
use feature 'signatures';
no warnings "experimental::signatures";

use lib '.';
use OMG qw(foo);
foo 1,2;

OMG.pm

#p7-pretend
use strict;
use warnings;
use feature 'signatures';
no warnings "experimental::signatures";

package OMG;

BEGIN {
    # pretend this says
    # if ( $] >= 7 ) {
    if (1) {
        require feature;
        feature->unimport('signatures');
    }
}

use Exporter;
*import = \&Exporter::import;
our @EXPORT_OK = ( 'foo', );

sub foo($$) {
    printf "Hello, your arguments were: %s %s\n", @_;
}