#!/usr/bin/perl

use strict;
use warnings;

my $f = 'CORE::' . shift;
print 'sub ', $f, ' (', prototype($f), ") {...}\n";