Select Code to Download

sub data {
    my $self = shift;
    $self->{data} = "$_[0]" if ( @_ );
...
    $self->{file_failed} = $_[0] ? 1 : 0 if ( @_ );
    $self->{file_failed} || 0;
}