#!/usr/bin/perl
use Response;
tie my $response, 'Response';
print $response;