my $ptf_filename;
    ...
    if ( $response->is_success ) {
        ...
        my $ptf_filename = $data->{PtfFileName};
        ...
    } 
    return $ptf_filename;