sub find_system_info {
    my $file_handle = shift;

    my $kernal_release = qx/uname -r/;
    my $partition_list = qx/fdisk/;
    my $disk_space = qx/df/;
    my $active_interfaces = qx/ifconfig/;

    my $output_basic = qq(                                                                                                                                                           
                                                                                                                                                                                     
        'print "*" x80'                                                                                                                                                              
        Kernal Release: $kernal_release                                                                                                                                              
                                                                                                                                     
`       Partition List:                                                                                                                                                              
                                                                                                                                                                                     
        $partition_list                                                                                                                                                              
                                                                                                                            
        Disk Space:                                                                                                                                                                  
        $disk_space                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                      
        Network Interfaces:                                                                                                                                                          
        $active_interfaces                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         );
print $file_handle  $output_basic;
}