#! /usr/bin/env perl

use strict;
use warnings;
use 5.10.0;

sub url { 'http://something.com/api_stuff/' . shift }

say 'POST->' . url('1234');