The following is ongoing on my private branch of the CPAN dist Net::RackSpace::CloudServers, in which I'm creating an App::Cmd interface to the module:

okram@bluedesk: (with_app_cmd)
~/GIT/Net-RackSpace-CloudServers$ perl cloudservers.pl create \
  --name=mfapitest --imagename karmic --flavorname 256 --verbose
Server name: mfapitest
Metadata: 
Paths: 
Image id 14362 named Ubuntu 9.10 (karmic)
Flavor id 1 named 256 server
Creating new server...
Created server ID 12…