Select Code to Download

#! /usr/bin/env perl

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

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